home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / TWILIGHT / TL_SOURC.E / THREADS / TL_START.S < prev    next >
Encoding:
Text File  |  1996-02-21  |  938 b   |  51 lines
  1. ; Twilight C-Modul Startup-Code
  2. ; Version 0.02 
  3. ; vom 25.10.1992
  4. ; geschrieben von Arndt Weinmann
  5. ;                 Rheinallee 85
  6. ;                 6500 Mainz
  7. ;
  8. ; erweitert von Delirium Arts
  9.         
  10.  
  11.     .EXPORT errno
  12.  
  13.     .IMPORT module_main
  14.     .EXPORT RETURN
  15.  
  16.     .TEXT
  17.     
  18. modul_begin:    
  19.     bra.s modul_start                                   ; nicht zuerst in den C-Code, sondern Stack sichern!
  20.     dc.w 0                                                ; damit es ein langer Sprung ist.    
  21.     dc.l 'XTLM'                                            ; ModulMagic
  22.     dc.w $FFFF                                            ; Versionsnummer
  23.  
  24.     .IMPORT module_info
  25.     dc.l module_info                                    ; Pointer auf Modulstruktur
  26.  
  27.     
  28. modul_start:
  29.     move.l SP,stack_buffer                            ; Stack wegstecken - für Quick-Exit!
  30.     bra module_main
  31.  
  32.  
  33. RETURN:                                                    ; Quick-Exit...
  34.     move.l stack_buffer(PC),SP
  35.     rts
  36.  
  37.     
  38.     
  39.  
  40.  
  41.                      .DATA
  42.  
  43. stack_buffer:        dc.l        0
  44. errno:            dc.w     0                 ; global variables for Pure C
  45.  
  46.  
  47.                   end
  48.  
  49.  
  50. *EOF
  51.